00100	
00110	(DE PROGIT()
00120	(PROG(Z)
00130	A(TERPRI)
00140	(SCANSET)(START)
00150	(SETQ Z(ERRSET (<EXP>)T))
00160	(SCANRESET)
00170	(COND((OR (NULL Z)(NULL(CAR Z)))(PRINT @YOU_BLEW_IT)(GO A)))
00180	(SETQ Z(ERRSET(EVAL(TOP)) T))
00185	(COND((ATOM Z)(PRINT @ERROR_IN_EVALUATION)(GO A)))
00187	(PRINT(CAR Z))(GO A)))
00190	
00200	(DE TRYTIL( CL CH ED COND)
00300	(PROG(NEWNAME XYZ1 AUTO FILENAM PRNO TIME1 AXNO)
00350	(SETQ PRNO 0)(SETQ FILENAM (QUOTE(P R O G)))
00375	(SETQ TIME1(DIFFERENCE(TIME)(GCTIME)))
00400	
00500	(SETQ XYZ1(COND((EQ(CAR CL)@*CL)(*CL(CDR CL)))
00600		(T(INITIALAX1 CL))))
00700	(SETQ NEWNAME(INITIAL XYZ1))
00800	(COND((EQ(CAR CH) @*CHOICE)(COND((SETQ STRATEGY(BUILTCH(SETQ SAVESTR(CDR CH)))) )(T(RETURN NIL))))
00900	(T(RETURN NIL)))
00975	(COND
01000	((EQ(CAR ED) @*EDIT)(COND((SETQ EDITSTRAT(BUILTED(CDR ED))))(T(RETURN NIL))))
01100	(T(RETURN NIL)) )
01300	(RETURN(ATTEMPT XYZ1 (LIST STRATEGY  SUPPORT EDITSTRAT MERGE ORDER 
01350	 DEBUG DEPTH LENGTH ANCESTRY PMODEL NMODEL PFLG EQUAL PDEPTH
01375	 DLIST)COND)) ) )
01400	(DE FIND( CL PAT)
01500	(PROG NIL 
01600	(COND((EQ(CAR L) @*CL)(SETQ CL(*CL (CDR CL)))))
01800	(COND((NOT(EQ(CAR PAT)@*PATTERN))(PRINT @HSM)(RETURN NIL)))
01900	(RETURN(MAPIT CL(LIST @FUNCTION(LIST @LAMBDA @(C) (CDR PAT)))(INITIAL CL))) ))
01905	(DE DECLARIT(X)
01910	(PROG (Z)
01912	(SETQ X(CDR X))
01915	(COND((NOT(MEMQ(CAR X)DECOP))(PRINT @LOSING_DECLARATION)(RETURN NIL)))
01920	(SETQ Z(CDR(ASSOC(CAR X)DECTBL)))
01925	(COND((EQ Z @IVAR)(MAKOVAR(SETQ IVAR(CADR X))))
01930	     ((EQ Z @EQUAL)(SETQ EQUAL(CAADR X)))
01935		(T(SET Z(CADR X))))
01940	(RETURN T)
01945	))